home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_87-02_1987_Verlag_Heinz_Weise_de.d64
/
drei mal drei
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
20KB
|
452 lines
1 ifpeek(50307)<>120then10
2 poke50257,16
10 dimfr$(240),an$(240),a(240)
20 h1$="":h3$="":h4$="[157][157][157][157][157][157][157][157][157][157]"
30 data7,254,0,7,254,0,0,12,0
40 data0,24,0,0,48,0,0,96,0
50 data0,192,0,1,252,0,1,254,0
60 data0,6,0,0,6,0,0,6,0
70 data0,14,0,0,12,0,0,28,0
80 data7,248,0,3,240,0,0,0,0
90 data0,0,0,0,0,0,0,0,0
100 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,131,0,0,198,0,0,108,0,0
110 data56,0,0,56,0,0,108,0,0,198,0,1,131,0,0,0,0,0,0,0,0,0,0,0,0,0,0
120 data0,0,0,0,0,0,0,0
130 wi=198:cu=204:co=646:ifpeek(40960)=0thenpc=1:co=241:cu=2599:wi=208
140 print"[147]"chr$(142)chr$(8):poke53280,0:poke53281,0:goto3460
150 pokev+21,0:print"[147]":poke53280,11:goto3930
160 en=0:ei$="":ifka=0then150
170 goto1390
180 ifnb=1thenforw=1to240:readfr$,an$:next
190 ifnb=0thenforw=1to240:readfr$(w),an$(w):next
200 h2$="[207][183][208][157][157][157][180] [170][157][157][157][204][175][186]":be=0
210 ru=1:forw=1to9:ze$(w)=str$(w):ze$(w)=right$(ze$(w),1):next
220 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
230 forw=1to3:ifpcthenprint
240 print"[145][165] [158][207][183][208][207][183][208][207][183][208] [158][207][183][208][207][183][208][207][183][208] [158][207][183][208][207][183][208][207][183][208] [170]":ifpcthenprint
250 print"[145][165] [158][180] [170][180] [170][180] [170] [158][180][160][170][180] [170][180] [170] [158][180] [170][180] [170][180] [170] [170]":ifpcthenprint
260 print"[145][165] [158][204][175][186][204][175][186][204][175][186] [158][204][175][186][204][175][186][204][175][186] [158][204][175][186][204][175][186][204][175][186] [170]":next:ifpcthenprint
270 print"[145][165] [175][175][175][175][175][175][175] [175][175][175][175][175][175][175] [175][175][175][175][175][175][175] [170]":ifpcthenprint
280 print"[145][165] [146][158]runde 1 [146][158]runde 2 [146][158]runde 3 [170]":ifpcthenprint
290 print"[145][165] [183][183][183][183][183][183][183] [183][183][183][183][183][183][183] [183][183][183][183][183][183][183] [170]":ifpcthenprint
300 print"[145][151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
310 print"[158]";
320 forw=1to9step3:ifw=4andpc=0thenprint"[145]";
330 print""ze$(w)""ze$(w+1)""ze$(w+2):print:ifpcthenprint
340 next:print"[158]";
350 forw=1to9step3:ifw=4andpc=0thenprint"[145]";
360 print""h3$""ze$(w)""ze$(w+1)""ze$(w+2):print:ifpcthenprint
370 next:print"[158]";
380 forw=1to9step3:print"";:ifw=4andpc=0thenprint"[145]";
390 print""h3$;h3$""ze$(w)""ze$(w+1)""ze$(w+2):print
400 ifpcthenprint
410 next
420 goto480
430 zu=int(-ti):zu=int(30*rnd(0))+1:zu=zu+(be(ru)-1)*30:ifa(zu)=1then430
440 a(zu)=1:goto1050
450 print""h1$""
460 forw=1to9:print" ":next:print""
470 return
480 ei$="":ifze=0thenw1=0:w2=0:w3=0:s1=0:s2=0:s3=0:d1=0:d2=0
490 gosub450:ze=ze+1
500 ifze=10thenru=ru+1:ze=0:forw=1to9:fe(w)=0:f1(w)=0:next:goto480
510 print"[158]"h1$"runde 1runde 2runde 3"
520 ifru=1thenprint""h1$"[154]runde 1"
530 ifru=2thenprint""h1$""h3$"[154]runde 2"
540 ifru=3thenprint""h1$""h3$;h3$"[154]runde 3"
550 dr=dr+1:ifdr>kathendr=1
570 print""h1$"":forw=1toka:pokeco,w+3:print
580 print""ka$(w):next
590 forw=1toka:ifpu(w)<0thenpu(w)=0
600 pu$(w)=str$(pu(w)):pu$(w)=right$(pu$(w),len(pu$(w))-1)
610 iflen(pu$(w))<6thenpu$(w)="0"+pu$(w):goto610
620 next:print""h1$""
630 forw=1toka:pokeco,w+3:print
640 printh3$""pu$(w);:ifw=drthenprint"[158] <[145]"
650 print:next
660 print""h1$"[158]spielerpunkterunde :[150]"ru
670 print""h3$;h3$"[150]"be$(ru)
675 ifru=4then4400
680 print""h3$;h3$"[155][176][192][192][192][192][192][192][192][192][192][174]"
690 printh3$;h3$"[155][221]feld : [221]"
700 printh3$;h3$"[155][173][192][192][192][192][192][192][192][192][192][189]"
710 print""h1$;h1$;h3$;h3$;h3$"";:pokecu,0
720 print"[150]";:getx$:ifx$=""then720
730 gosub3320:ifx$="\"thentn=1-tn
740 ifx$=chr$(13)andei$<>""andfe(val(ei$))<>2andf1(val(ei$))<kathen770
750 ifx$<"1"orx$>"9"then720
760 printx$"[157]";:ei$=x$:goto720
770 f$=ei$:pokecu,1:print"[154]"ei$:goto1040
780 pokeco,dr+3:fe(val(f$))=dr
790 ifbl=1thenz(1)=1:z(2)=2:z(3)=3
800 ifbl=2thenz(1)=4:z(2)=5:z(3)=6
810 ifbl=3thenz(1)=7:z(2)=8:z(3)=9
820 ifbl=4thenz(1)=1:z(2)=4:z(3)=7
830 ifbl=5thenz(1)=2:z(2)=5:z(3)=8
840 ifbl=6thenz(1)=3:z(2)=6:z(3)=9
850 ifbl=7thenz(1)=1:z(2)=5:z(3)=9
860 ifbl=8thenz(1)=3:z(2)=5:z(3)=7
870 ifbl<>0thenforw=1to15:ifw=15thenpokeco,dr+3:forq=1to3:a=z(q):goto890
880 ifbl<>0thenpokeco,w:forq=1to3:a=z(q)
890 ifru=1thenprint"";
900 ifru=2thenprint""h3$"";
910 ifru=3thenprint""h3$;h3$"";
920 ifbl=0thena=val(f$)
930 ifa=1thenprinth2$
940 ifa=2thenprint""h2$
950 ifa=3thenprint""h2$
960 ifa=4thenprint""h2$
970 ifa=5thenprint""h2$
980 ifa=6thenprint""h2$
990 ifa=7thenprint""h2$
1000 ifa=8thenprint""h2$
1010 ifa=9thenprint""h2$
1020 ifbl<>0thennextq,w:bl=0
1030 goto1700
1040 gosub450:goto430
1050 print""h1$"[150]frage :":print"[154]"fr$(zu)" ?"
1060 la=15:print"[153]antwort :";:gosub1140
1070 ifei$=an$(zu)thenprint"richtig !":pu(dr)=pu(dr)+100
1080 ifei$=an$(zu)thenf1(val(f$))=5:goto780
1090 print"falsch !":pu(dr)=pu(dr)-50:pokeco,7:fe(val(f$))=12
1100 f1(val(f$))=f1(val(f$))+1:iff1(val(f$))<kathenze=ze-1:goto1700
1110 goto790
1120 ei$="":getx$:ifx$=""then1120
1130 goto480
1140 ei$="":print"";:pokecu,0:ifpc=0thenforr=0to24:pokes+r,0:next
1150 getx$:ifx$=""then1150
1160 ifx$="\"thentn=1-tn:goto1150
1170 ifpc=1andtn=0then(NULL)1,6000,2:goto1200
1180 iftn=0thenpokes+1,180:pokes+5,9
1190 iftn=0thenpokes+15,30:pokes+24,15:pokes+4,21:forr=1to100:next:pokes+4,20
1200 ifx$="_"anden=1thenei$="_":x=13:goto1220
1210 x=asc(x$):ifx=20andei$=""then1150
1220 ifx=13thenpokecu,1:print" ":return
1230 ifx=20thenprint"[157] [157][157]";:ei$=left$(ei$,len(ei$)-1):goto1150
1240 ifx>64andx<91then1280
1250 ifx$>="0"andx$<="9"then1280
1260 ifx$=" "then1280
1270 goto1150
1280 iflen(ei$)=lathen1150
1290 printx$;:ei$=ei$+x$:goto1150
1300 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]":ifpcthenprint
1310 print"[145][180] [154] bitte spielernamen eingeben (1-3) [170]":ifpcthenprint
1320 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":en=1:ifpcthenprint
1330 la=10:ka=ka+1:print"[150]"ka"[157][158]. spieler : ";
1340 pokeco,ka+2:gosub1140:ka$(ka)=ei$
1350 pokeco,15:ifei$="_"andka>1thenka=ka-1:goto160
1360 ifei$=""orei$="_"thenka$(ka)="spieler"+str$(ka)
1370 ifka=3then160
1380 goto1330
1390 print""h1$"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1400 ifpcthenprint
1410 print"[145][180] [154] bitte drei bereiche auswaehlen [170]":ifpcthenprint
1420 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][146]";
1430 ifnb=0thenforw=1to8:readge$(w)
1440 ifnb=0theniflen(ge$(w))<13thenge$(w)=ge$(w)+" ":goto1440
1450 ifnb=0thennext
1460 ifnb=1thenforw=1to8:readx$:next
1470 data allerlei,technik,physik,biologie,geographie,geschichte,sport,chemie
1480 forw=1to4:print"[129]"w"[157]. [158]"ge$(w)"[129]"w+4"[157]. [158]"ge$(w+4):next
1490 bb=1:print"[157] "h1$"[159]>";
1500 getx$:ifx$=""then1500
1510 gosub3320:ifx$="\"thentn=1-tn
1520 ifx$="_"andaa=3thenprint"[157] ":goto180
1530 ifx$=""andse=0thenprint"[157] "h3$"[159]>";:se=1:bb=bb+4:goto1500
1540 ifx$="[157]"andse=1thenprint"[157] "h4$;h4$"[159]>";:se=0:bb=bb-4:goto1500
1550 ifx$=chr$(13)thenifbb=be(1)orbb=be(2)orbb=be(3)then1640
1560 ifx$=chr$(13)andaa<3andbe(1)<>bbandbe(2)<>bbthenz=z+1:goto1680
1570 ifx$=""thenbb=bb+1:ifbb<>5andbb<9thenprint"[157] [157]>";:goto1500
1580 ifbb=5thenprint"[157] "h1$""h3$;h3$">";:se=1
1590 ifbb=9thense=0:goto1490
1600 ifx$="[145]"thenbb=bb-1:ifbb<>4andbb>0thenprint"[157] [145][145][157]>";:goto1500
1610 ifbb=4thenprint"[157] "h1$;h1$">";:se=0:goto1500
1620 ifbb=0thenbb=8:print"[157] "h1$;h1$""h3$;h3$">";:se=1
1630 goto1500
1640 print"[157] [158]"ge$(bb);h4$"[157][157][157][157][157][157][157][157][159]>";
1650 forw=1to3:ifbb=be(w)thenv=w
1660 next:forw=vtoaa:be(w)=be(w+1):be$(w)=be$(w+1):next
1670 z=z-1:aa=aa-1:goto1500
1680 print"[157] "ge$(bb);h4$"[157][157][157][157][157][157][157][157][159]>";
1690 be$(z)=ge$(bb):be(z)=bb:aa=aa+1:goto1500
1700 w=dr
1710 ifw1=0andfe(1)=wandfe(2)=wandfe(3)=wthenpu(w)=pu(w)+200:w1=1:bl=1:goto790
1720 ifw2=0andfe(4)=wandfe(5)=wandfe(6)=wthenpu(w)=pu(w)+200:w2=1:bl=2:goto790
1730 ifw3=0andfe(7)=wandfe(8)=wandfe(9)=wthenpu(w)=pu(w)+200:w3=1:bl=3:goto790
1740 ifs1=0andfe(1)=wandfe(4)=wandfe(7)=wthenpu(w)=pu(w)+200:s1=1:bl=4:goto790
1750 ifs2=0andfe(2)=wandfe(5)=wandfe(8)=wthenpu(w)=pu(w)+200:s2=1:bl=5:goto790
1760 ifs3=0andfe(3)=wandfe(6)=wandfe(9)=wthenpu(w)=pu(w)+200:s3=1:bl=6:goto790
1770 ifd1=0andfe(1)=wandfe(5)=wandfe(9)=wthenpu(w)=pu(w)+200:d1=1:bl=7:goto790
1780 ifd2=0andfe(3)=wandfe(5)=wandfe(7)=wthenpu(w)=pu(w)+200:d2=1:bl=8:goto790
1790 forw=1to800:next:print""h1$;h1$""h3$"[129]>[158]space[129]<"
1800 getx$:ifx$=""then1800
1810 ifx$<>"+"andx$<>"-"thensd=0
1820 ifx$=" "then480
1830 ifx$="+"thensd=1:goto1800
1840 ifx$="-"andsd=1thensd=0:goto1860
1850 goto1800
1860 print""h1$;h1$""h3$" "
1870 print""h1$;h1$""h3$"[150]"an$(zu)
1880 pokewi,0:waitwi,1:pokewi,0:goto480
1890 data weltsprache,esperanto,schweizer kaesegericht,fondue
1900 data begruender des kindergartens,froebel,schwerkraft,gravitation
1910 data frauenwohnung der mohammedaner,harem,hautarzt,dermatologe
1920 data zuckerkrankheit,diabetes,fremdes geld,devisen
1930 data gruender des roten kreuzes,dunant,daenischer maerchendichter,andersen
1940 data verraeter unter den 12 aposteln,judas,leichtestes nutzholz,balsa
1950 data soldatenlager im freien,biwak,erfinder der stenographie,gabelsberger
1960 data oberster hindugott,brahma,geschliffener diamant,brillant
1970 data farbe der backbordlaterne,rot,wurfholz der australier,bumerang
1980 data rundes schiffsfenster,bullauge,gewichtseinheit fuer edelsteine,karat
1990 data totes tier,aas,kratersee in der eifel,maar
2000 data reifepruefung am gymnasium,abitur,gruender des buddhismus,buddha
2010 data mohammedanischer bettelmoench,derwisch,gelbsucht,hepatitis
2020 data schottisches blasinstrument,dudelsack,handgewebter bildteppich
2030 datagobelin
2040 data vierter planet im sonnensystem,mars,getreide zum bierbrauen,gerste
2050 data anlage zur stahlerzeugung,hochofen,taktometer,metronom
2060 data ein siemens-martin-ofen erzeugt,stahl,auto mit klappverdeck,cabriolet
2070 data geschlossenes auto,limousine,amerikanische mondrakete,apollo
2080 data deutsches farbfernsehverfahren,pal,startklappe beim auto,choke
2090 data dynamo im auto,lichtmaschine,kolbenstange,pleuel
2100 data luftdruckmesser,barometer,mischung aus zinn und kupfer,bronze
2110 data mischung aus zink und kupfer,messing,pilotenkanzel,cockpit
2120 dataerfinder des drehkolbenmotors,wankel,erfinder des barometers,torricelli
2130 data erfinder der luftpumpe,guericke,erfinder des fernrohrs,galilei
2140 data erfinder d.blitzableiters,franklin,erfinder d.reklamesaeule,litfass
2150 data windzugewandte schiffseite,luv,windabgewandte schiffseite,lee
2160 data erfinder des dynamits,nobel,ort der einzigen schwebebahn,wuppertal
2170 data hoechstes bauwerk v.paris,eiffelturm,thermometer i.england,fahrenheit
2180 data hinterer teil des schiffes,heck,rechte schiffsseite,steuerbord
2190 dataerfinder d.fliessbandes,ford,erfinder d.duesenflugzeugs,messerschmidt
2200 data begruender der hebelgesetze,archimedes,braeunendes sonnenlicht (abk.)
2210 datauv
2220 data zurueckgelegte lichtstrecke im jahr,lichtjahr,sternenkunde,astronomie
2230 data die planetengesetze sind von,kepler,explosion auf d.sonne,protuberanz
2240 data stromfuehrender draht,phase,erbauer der ersten lokomotive,stephenson
2250 data zweikanalton,stereo,geraet z.messung radioakt.strahlen
2260 datageigerzaehler
2270 data entdecker des auftriebs,archimedes,entdecker der induktion,faraday
2280 dataerbauer des 1.heissluftballons,montgolfier,erfinder d.fahrrades,drais
2290 data schwedischer thermometererfinder,celsius,1.physik-nobelpreistraeger
2300 data roentgen,entdecker d.neutrons,chadwick,entdecker der kernspaltung
2310 data hahn,erbauer d.1.atomreaktors,fermi,lehre vom licht,optik
2320 data masseinheit d.kraft,newton,erfinder des 4-takt-motors,otto
2330 data abk.fuer integrierter schaltkreis,ic
2340 data masseinh.d.elektr.widerstandes,ohm,geschwindigkeitsmesser,tachometer
2350 data lehre vom schall,akustik,komplementaerfarbe von rot,gruen
2360 data summe aller farben,weiss,temperaturregler i.elektrogeraeten
2370 data thermostat,masseinheit d.frequenz,hertz
2380 dataland mit dem 1.zoo,china,suedamerik.pfeilgift,curare
2390 dataschmuck aus versteinertem harz,bernstein,an welchem pol leben pinguine
2400 datasuedpol,an welchem pol leben eisbaeren,nordpol,weibliches reh,ricke
2410 datagroesster vogel der erde,kondor,raubvogelnest,horst
2420 dataeinzige giftschlange unserer heimat,kreuzotter,ziegenpeter,mumps
2430 datagroesste druese d.menschen,leber,gesundheitspflege,hygiene
2440 databez.fuer kriechtiere,reptilien,name f.eiweiss,protein
2450 datahauptschlagader,aorta,sauerstoffreiches blut fliesst in,arterien
2460 datasauerstoffarmes blut fliesst in,venen,beinzahl einer spinne,8
2470 datamaennliche wildente,erpel,name fuer blattgruen,chlorophyll
2480 data esskastanie,marone,roter blutfarbstoff,haemoglobin
2490 data name fuer heidekraut,erika,groesster heimischer kaefer,hirschkaefer
2500 data knochenbruch,fraktur,brutschmarotzender vogel,kuckuck
2510 data wechseltierchen,amoebe,aufzeichnung der herzstroeme (abk.),ekg
2520 data rote blutkoerperchen entstehen im,knochenmark,urbild der teddybaeren
2530 datakoala
2540 dataringfoermige koralleninsel,atoll,hauptstadt v.malta,la valetta
2550 datahauptstadt von rumaenien,bukarest,hauptstadt v.norwegen,oslo
2560 datazwergstaat in d.pyrenaeen,andorra,worin muendet der nil,mittelmeer
2570 datalaengster fluss europas,wolga,groesster see der brd,bodensee
2580 dataheiliger fluss indiens,ganges,an welchem fluss liegt muenchen,isar
2590 datagroesste hollaend. nordseeinsel,texel,deutsche hochseeinsel,helgoland
2600 datasuedspitze v.spanien,gibraltar,noerdlichster staat d.usa,alaska
2610 datahoechster berg oesterreichs,grossglockner,hoechster berg i.suedamerika
2620 dataaconcagua,welcher fluss muendet ins tote meer,jordan
2630 datatrockener fallwind noerdl.d.alpen,foehn,flughafen muenchens,riem
2640 datagroesste wueste d.erde,sahara
2650 data haupstadt von sardinien,cagliari,hauptstadt von australien,canberra
2660 data groesste deutsche insel,ruegen,hoechster berg europas,mont blanc
2670 data groesste insel der erde,groenland,hauptstadt von hawai,honululu
2680 data hauptstadt von hessen,wiesbaden,hauptinsel japans,honschu
2690 data der fruehling beginnt am 21.,maerz,der winter beginnt am 22.,dezember
2700 datawo wurde karl d.grosse gekroent,aachen,germanische schriftzeichen
2710 datarunen,ritterkampfspiel im mittelalter,turnier,franz.fallbeil
2720 dataguillotine,moerder siegfrieds,hagen,griechischer goetterbote,hermes
2730 dataisraelisches parlament,knesset,dichter der odyssee,homer
2740 databegruender d.islam,mohammed,heiliges buch d.islam,koran
2750 dataantiker leuchtturm vor alexandria,pharos,koenig des antiken troja
2760 datapriamos,sitz d.griech.goetter,olymp,priesterin im delphischen orakel
2770 datapythia,frieden nach d.30-jaehrigen krieg,westfaelischer friede
2780 datamittelalterl.handwerker-vereinigung,zunft
2790 datagruendungsjahr d.deutschen reichs,1871,verfassung der brd,grundgesetz
2800 datalaienrichter,schoeffe,staatsform mit koenig,monarchie
2810 data tuerabstimmung im bundestag,hammelsprung,komponist d.deutschen hymne
2820 datahaydn
2830 data heldenlied,epos,begruender des kommunismus,marx
2840 data geburtsinsel napoleons,korsika,begruender der sowjetunion,lenin
2850 data parteienbuendnis,koalition,westliches verteidigungsbuendnis,nato
2860 data oestliches verteidigungsbuendnis,warschauer pakt
2870 datadie erste atombombe fiel auf,hiroshima
2880 data bezeichnung fuer federball,badminton,bekannter deutscher golfspieler
2890 data langer
2900 data freiwurfentf.b.basketball (cm),460,leichteste boxklasse
2910 data papiergewicht
2920 data geraet b.gewichtheben,hantel,huerdenhoehe 110 m maenner (mm)
2930 data 1067
2940 data leichteste klasse beim judo,federgewicht,fussballweltmeister 1986
2950 data argentinien
2960 data franzoesische radrundfahrt,tour de france,freier mann beim fussball
2970 data libero
2980 data motorradrennen auf eis,speedway,bekannte autorennstrecke i.d.eifel
2990 data nuerburgring,hindernisbahn fuer pferdespringen,parcours
3000 data mannschaftsstaerke im hallenradball,2,torlauf fuer skifahrer,slalom
3010 data hoehe d.tennisnetzes i.d.mitte (mm),915,drehfigur im eiskunstlauf
3020 data pirouette
3030 data erfinder des volleyballspiels,morgan,turngeraet mit zwei holmen
3040 data barren,waffenloser korean.kampfsport,taekwando
3050 data fremdwort fuer fussballtrainer,coach,ein fussballspiel dauert (min.)
3060 data90
3070 data ein eishockeyspiel dauert (min.),60,beruehmtes skigelaende bei oslo
3080 dataholmenkollen
3090 data beruehmter finn.langstreckenlaeufer,nurmi,berufssportler,profi
3100 data vereinswechsel beim fussball,transfer,balken beim frauenturnen
3110 dataschwebebalken
3120 data erfinder des basketballs,naismith,italienisches nationalspiel,boccia
3130 data erfinder d.photographie,daguerre,metallmischung,legierung
3140 data atomgruppe,molekuel,was ist c2h5oh,alkohol
3150 data mischung a.wasserstoff u.sauerstoff,knallgas
3160 data was ist natriumchlorid,kochsalz,erfinder d.chem.formelsprache
3170 databerzelius,was ist natriumkarbonat,soda,was ist kalziumsulfat,gips
3180 data salz der salzsaeure,chlorid,lackmus faerbt s.bei saeure,rot
3190 data lackmus faerbt s.bei lauge,blau,chem.formel fuer eisen,fe
3200 data salzbildner (z.b.chlor) heissen,halogene,neon und argon sind,edelgase
3210 data erfinder d.schiesspulvers,schwarz,mittelalterl.chemiker,alchimist
3220 data leichtestes element,wasserstoff,schwerstes element,osmium
3230 data einfachster kohlenwasserstoff,methan
3240 data aus salmiakgeist entweicht das gas,ammoniak,gegengift,antitoxin
3250 data beim verbrennen v.schwefel entsteht,schwefeldioxid
3260 datazerlegung eines stoffes,analyse
3270 data elektrische zerlegung eines stoffes,elektrolyse
3280 dataringfoermiger kohlenwasserstoff,benzol
3290 data herabhaengende tropfsteine,stalagtiten,hauptbestandteil der luft
3300 datastickstoff
3310 data natrium faerbt eine flamme,gelb,unversteuerter alkohol,spiritus
3320 iftn=1thenreturn
3330 ifpcthen(NULL)1,5000,2:return
3340 s=54272:fort=0to24:pokes+t,0:next:pokes+1,190:pokes+5,9:pokes+15,30
3350 pokes+24,15:pokes+4,21:forr=1to100:next:pokes+24,0:return
3360 print"[147][150] *** [154]siegerehrung [150]***":pokewi,0
3370 ifpcthen(NULL)1,1:(NULL)2,1:(NULL)3,1:goto3390
3380 pokev+21,50:pokev+40,7:pokev+44,7:pokev+43,5
3390 print""h1$"[153] herzlichen glueckwunsch ";:n$=""
3400 forw=1toka-1:forq=wtoka:we=0:ifpu(w)<pu(q)thenwe=1
3410 ifwe=1thenh$=ka$(w):ka$(w)=ka$(q):ka$(q)=h$:h=pu(w):pu(w)=pu(q):pu(q)=h
3420 nextq,w:print"[150]"ka$(1):print"[159]----------------------------------------"
3422 fori=1toka
3423 print" "ka$(i),": ";pu(i);" punkte"
3424 next
3430 print"[158] taste druecken !!! [150]"
3440 getx$:ifx$=""then3440
3450 run10
3460 ifpcthen3710
3470 v=53248:poke2045,15:forw=0to62:readq:poke960+w,q:next:pokev+44,7
3480 restore:poke2041,11:forw=0to62:readq:poke704+w,q:next:pokev+40,7:pokev+23,50
3490 pokev+29,50
3500 forw=0to62:readq:poke896+w,q:next
3510 poke2044,14:pokev+43,5
3520 pokev+10,162:pokev+2,164:pokev+8,162
3530 pokev+21,50:forw=0to180:pokev+9,abs(w-5):pokev+3,w:pokev+11,w:forr=1to5
3540 nextr,w:forw=1to50:pokev+10,162-w:pokev+2,164+w:forr=1to20:nextr,w
3550 print" [150]i[129]n[158]p[154]u[159]t 6[153]4":gosub3320:forw=1to1000:next
3560 forq=1to4:forw=0to15:pokev+40,w:pokev+43,w:pokev+44,w
3570 fort=1to20:nextt,w,q
3580 pokev+43,5:pokev+40,7:pokev+44,7
3590 forw=180to150step-1:pokev+9,w:forq=1to15:nextq,w
3600 forw=180to130step-1:pokev+3,w:pokev+9,w-35:pokev+11,w:forq=1to25
3610 nextq,w
3620 forw=130to100step-1:pokev+11,w:pokev+3,w:forq=1to15:nextq,w:gosub3320
3630 print""h1$"[150] ein unterhaltsames quiz mit":forw=1to2000:next
3640 gosub3320:print"[154] bis zu 3 spielern":forw=1to1500:next
3650 gosub3320:print"[150] in 3 runden":forw=1to1000:next
3660 gosub3320:print"[153] von th. langenkamp 1986"
3670 fa=fa+1:iffa=16thenfa=1
3680 pokev+40,fa:pokev+43,fa:pokev+44,fa
3690 getx$:ifx$<>""then150
3700 goto3670
3710 rem --- 128 sprites ---
3720 restore3730:forw=1to67:reada:a$=a$+chr$(a):next:(NULL)a$,1:(NULL)1,3
3730 data 0,0,0,0,0,0,1,255,0,1,255,0,0,3,0,0,7,0,0,14,0,0,28,0,0,62,0,0,31
3740 data 0,0,7,128,0,3,128,0,1,128,0,1,128,0,3,128,0,7,0,1
3750 data 254,0,1,252,0,0,0,0,0,0,0,0,0,0,23,0,20,0,0,0,0,0
3760 a$="":restore3770:forw=1to67:reada:a$=a$+chr$(a):next:(NULL)a$,2
3763 restore1470
3770 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,227,128,0,227,128
3780 data 0,119,0,0,62,0,0,28,0,0,62,0,0,28,0,0,62,0,0,119,0,0,227,128,0,227
3790 data 128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,23,0,20,0,0
3800 (NULL)1,157,0:(NULL)2,175,0:(NULL)3,157,0
3810 (NULL)1,1,8,0,1,1,0:(NULL)2,1,6,0,1,1,0:(NULL)3,1,8,0,1,1,0
3820 forw=1to180:(NULL)1,+0,+1:(NULL)2,+0,+1:(NULL)3,+0,+1:next
3830 forw=1to50:(NULL)1,-1,+0:(NULL)3,+1,+0:nextw
3840 print" [150]i[129]n[158]p[154]u[159]t 6[153]4":(NULL)1,6000,2:(NULL)1
3850 forw=1to40:(NULL)2,+0,-1:next
3860 forw=1to50:(NULL)1,+0,-1:(NULL)2,+0,-1:(NULL)3,+0,-1:next
3870 forw=1to40:(NULL)1,+0,-1:(NULL)3,+0,-1:next:(NULL)1,6000,2
3880 print""h1$"[150] ein unterhaltsames quiz mit":(NULL)1
3890 (NULL)1,6000,2:print"[154] bis zu 3 spielern":(NULL)1
3900 (NULL)1,6000,2:print"[150] in 3 runden":(NULL)1
3910 (NULL)1,6000,2:print"[153] von th. langenkamp 1986":(NULL)1
3920 get(NULL)x$:forw=1to3:(NULL)w,0:next:goto150
3930 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]":ifpcthenprint
3940 print"[145][180] [154] m e n u e [170]":ifpcthenprint
3950 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":ifpcthenprint
3960 ifpeek(50307)=120then4300
3962 print"[158] soll ein weiterer teil":print" nachgeladen werden ? [150]";
3970 getx$:ifx$=""then3970
3980 ifx$="n"orx$="[206]"then1300
3990 ifx$="j"orx$="[202]"thenprint"ja":goto4000
3995 goto3970
4000 print:print"[153] cassette [150]oder [153]diskette ?[150] ";
4020 getx$:ifx$=""then4020
4030 ifx$="c"orx$="[195]"thenprint"cassette":goto4170
4040 ifx$="d"orx$="[196]"thenprint"diskette":goto4050
4045 goto4020
4050 la=16:print:print"[154] filename : [150]";:gosub1140:w=1
4060 open2,8,2,ei$+",s,r"
4070 open15,8,15:input#15,a$,b$:ifval(a$)thenprint"[153] fehler :[158] "b$:goto4160
4080 forw=1to8:input#2,ge$(w)
4090 iflen(ge$(w))<13thenge$(w)=ge$(w)+" ":goto4090
4100 print"[154] element : [150]";w:nextw
4110 forw=1to240:print"[154] element : [150]";w
4120 input#2,fr$(w),an$(w):iflen(fr$(w))>37thenfr$(w)=left$(fr$(w),37)
4130 iflen(an$(w))>25thenan$(w)=left$(an$(w),25)
4140 nextw
4150 nb=1:print"[159] ok.":close15:close2:forw=1to2500:next:goto1300
4160 close2:close15:forw=1to2500:next:goto3930
4170 sa=1:ifpc=0andpeek(49152)=169thensa=7
4180 ifsa=7thenprint"[153] supertape aktiviert !!!"
4190 la=16:print"[154] filename : [150]";:gosub1140:ifei$=""then3930
4200 print"[158] bitte play druecken !!! [144]";:open1,sa,0,ei$
4210 forw=1to8:input#1,ge$(w):print""
4220 iflen(ge$(w))<13thenge$(w)=ge$(w)+" ":goto4220
4230 nextw
4240 forw=1to240:input#1,fr$(w),an$(w):print""
4250 iflen(fr$(w))>37thenfr$(w)=left$(fr$(w),37)
4260 iflen(an$(w))>25thenan$(w)=left$(an$(w),25)
4270 nextw
4280 nb=1:forw=1to3500:next:close1:goto1300
4290 print"[147][158] fehlermeldung ":ifpcthenprint
4300 print"[153] ausserhalb des [150]input 64-[153]betriebs-"
4310 print" systems erlaubt ihnen dieses programm"
4311 print" geeignete dateien nachzuladen."
4312 print:print" speichern sie dazu das programm erst"
4313 print" mit ctrl-s auf ihren eigenen daten-"
4314 print" traeger ab."
4320 print"[129] >[158]taste[129]<"
4330 getx$:ifx$=""then4330
4340 goto1300
4400 print""h3$;h3$"[155]bitte taste"
4410 printh3$;h3$"[155] "
4420 printh3$;h3$"[155]druecken!! "
4430 getx$:ifx$=""then4430
4440 goto3360